home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / fido / CrashMail125.lha / CrashMail / rexx / R20EchoConv.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-11  |  2KB  |  62 lines
  1. /* $VER: R02EchoConv 1.1 (23.03.96)
  2.  
  3.    by Johan Billing
  4.  
  5.    This ARexx script is probably only of interest to Swedish users. The script
  6.    converts the R20_ECHO.LST file to a format that can be used for AreaFix
  7.    forward-requests and auto-adding of descriptions. It is a good idea to
  8.    convert the file from PC8 to Latin-1 using a program such as CharConv
  9.    before running this script.
  10.  
  11.    Syntax: rx R20EchoConv.rexx <R20_ECHO.LST> <output file>
  12.  
  13.    History:
  14.    
  15.    1.0    First version
  16.  
  17.    1.1    The version of the R20_ECHO list changed a bit, so I had to
  18.           change this script too. The field in the list that was called
  19.           NAME before is now called TAG...
  20.  
  21. */
  22.  
  23. parse arg echoname" "outname
  24.  
  25. IF ~SHOW(Libraries,'rexxsupport.library') THEN
  26.     IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN EXIT
  27.  
  28. call open('echofile',echoname,'R')
  29. call open('outfile',outname,'W')
  30.  
  31. tagname=""
  32. desc=""
  33.  
  34. do while ~eof('echofile')
  35.  inline=readln('echofile')
  36.  inline=strip(inline,'T','0d'x)
  37.  
  38.  if pos(' : ',inline)~=0 then do
  39.   parse var inline field ':' contents
  40.   field=strip(field,'B')
  41.   contents=strip(contents,'B')
  42.  
  43.   if field="TAG" then do
  44.    if tagname~="" then do
  45.     tagname=overlay(tagname,"",1,max(30,length(tagname)))
  46.     call writeln('outfile',tagname desc)
  47.    end
  48.    tagname=contents
  49.   end
  50.   if field="TITEL" then desc=contents
  51.  end
  52. end
  53.  
  54. if tagname~="" then do
  55.  tagname=overlay(tagname,"",1,max(30,length(tagname)))
  56.  call writeln('outfile',tagname desc)
  57. end
  58.  
  59. call close('echofile')
  60. call close('outfile')
  61.  
  62.